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MODULE BASSSTOP ( ! 
oe = '1-006' i File: BASSTOP.B32 EDIT: PL1006 


AX=11 BLi 


37 ~32_V4.0-742 p 
40 EBASRTL-SRCJBASSTOP.83 o 


4 
231 


BEGIN 


LRA RARER AE RARER EAE EEE AEA EAE EAA AREER EATER EE 


it COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
Hd Tate IN ACCORDANCE WITH THE TERMS OF SUCH Gee egy Bh HE 


pejejlelololo) 


AUEWN =O ODNAUS WN — OOONAUES WN" OVOONAUES WN 


® 
® 
® 
® 
® 
® 
® 
® 
i ROV . 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
& 
is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
iw AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ie CORPORATION. * 
* 
*® 
® 
® 
® 
® 


iw DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!t SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: BASIC=PLUS-2 Miscellaneous 


ABSTRACT: 
This module contains the BASIC STOP statement, which prompts 


i 
i 
i 
i 
i 
Boas the user to EXIT or CONTINUE. 
si ENVIRONMENT: VAX-17 User Mode 
se AUTHOR: John Sauter, CREATION DATE: 10-MAY-1979 
004 i MODIFIED BY: 
004 i 
0044 i 1-001 = Original. 
0045 i 1-002 = Change LIB$S and OTS$S to STR$. JBS sieeve iere 
0046 i 1-003 - Use CIBSGET COMMAND instead of doing BASIC 1/0. JBS 14-SEP-1979 
0047 i 1-004 - Add BASSSSTOF INIT, for ghe RUN command. JBS 15-SEP-1979 
0048 i 1-005 = If a return is sypee then just signal WHAT?. FM 5-FEB-81. 
ae t 1-006 - LIB STOP should be dec A EXTERNAL. PLL 20-Nov-81 
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BASSSTOP 16-Sep-1984 01°15:37 AX-11 Bliss-32 V4.0-742 Page 
tits 12-86-19 4 94 48:25 BASRTL.SRCIJBASSTOP.B32;1 . 
H ee 9027 1} 

. 5 0054 1 ! SWITCHES: 
He Bae Ba 

3 28 0087 } SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 

3; 0059 1! 

5s §) 0060 1 ! LINKAGES: 

; o¢ 0061 1! 

52% Bnee 1} NONE 

>; «664 0065 1! 

3; 6 0064 1 ! TABLE OF CONTENTS: 

3; & 0065 1! 

5 Of 0066 1 

; OB 0067 1 FORWARD ROUTINE 

; 69 0068 1 BASSSTOP : NOVALUE, ' EXIT or CONTINUE 

ye 0069 1 BASSSSTOP_INIT : NOVALUE, : Set up for the RUN environment 
Pe a | 0070 1 FREE_STRINGS; ! Handler to free strings 

wee: 0071 1 

 £ 0072 1! 

>; «674 0075 1 ! INCLUDE FILES: 

; 0074 1! 

o 8 0075 1 

: Ag 8078 : REQUIRE ‘RTLIN:RTLPSECT'; ! Macros for defining psects 

; 7? girs 1 LIBRARY ‘RTLSTARLE'’; ' System symbols 

: 80 01735 1 

ag | 0174 1! 

: 82 0175 1 ! MACROS: 

: 83 0176 1! 

>; & 0177 1! NONE 

; 0178 1! 

; 86 0179 1 ! EQUATED SYMBOLS: 

; «87 FH 6 1! 

; 0181 1! NONE 

; 0182 1! 

; @ 0183 1 ! PSECTS: 

0184 1! 

; Bigs : DECLARE PSECTS (BAS); ! Declare psects for BAS$ facility 
; 94 0187 1 ! OWN STORAGE: 

5 0188 1! 

; «39% 0189 1 

5: OF 8130 1 OWN ‘ : 
; 191 «#1 RUN_CMD : INITIAL (0); ! 1 means we are in the RUN environment. 
; p13¢ 1 

3 100 0195 1! 

: 101 0194 1 ! EXTERNAL REFERENCES: 

; 106 0195 1! 

3 1 b198 1 

: 104 197 1 EXTERNAL ROUTINE 

s 105 0198 1 LIBSSTOP : NOVALUE, ! Signal fatal error 

: 106 0199 1 LIBSGET_COMMAND ' Read a comman 

3 107 0200 1 BASSSSIGNAL : NOVALUE, ! Signal an error 

; 108 0201 1 STRSFREE1_DX, ' Free a string 

: 109 O508 1 LIBSMATCH_COND, ! Match condition values 

3; 110 0203 1 BASS$STOP”: NOVALUE; ! Signal a fatal error 
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D1 
Jo=senn 1 38 91 1 37 AX=-11 mts, 
14-Sep-1984 11:56:40 BASRTL.SRC 
A_DESC pees pred = DSCSK_DTYPE_T; 
A_DESC LDSCSB_CLASSJ = DSCSK_CLASS_D; 
A_DESC LDSCSA_POINTER] = 


'¢ 

: Print a message giving the 

} This is done using the sign 
BASSSSIGNAL (BAS$K_STO); 


Now we wait for a ees to indicate whether to exit or continue. 
: This is suppressed in the RUN environment. 


ng number of the STOP statement. 


ing facility. 


IF ( NOT .RUN_CMD) 
THEN 
BEGIN 


BEGIN 


OUT_LEN, 

GET_COM_STATU® ; 

ta 

Ask whether or exit or continue. The prompt is a #. 

GET_COM_STATUS = LIBSGET_COMMAND (A_DESC, PROMPT_DESC, OUT_LEN); 


IF ( NOT .GET_COM_STATUS) THEN LIBSSTOP (.GET_COM_STATUS) ; 


f just a return is typed then sigal WHAT. é 

f the first character of the response is a C, we are to continue. 
F ys E, we are to exit. Otherwise, print an error message and 

sk again. 


IF .OUT_LEN EQL 0 
THEN 


BEGIN 
BASSSSIGNAL_ (BAS$K_WHA); 
Bx 2 FOR CONT = 0; 


SE 
BEGIN 
A_BUF = .A_DESC CDSCSA_POINTER]; 
SELECTONE .A_BUF [0] OF 
SET 
Cxc'c', %C'c') : 
EXIT_OR_CONT = 1; 


[¥C'E', BC'e') : 
ExiT_OR_CONT 


" 
™~Nm 
ee 
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4 0334 5 COTHERWISE) : 
38 8 5 2 S BEGIN 

$2 0 ? ° Print the WHAT message by signaling. 

oO Ue ee 

a oe cts Mee 
gs] RE mite 

38 O33 4 ; 

54 0346 4 END 

55 0347 UNTIL (.EXIT_OR_CONT NEQ 0); 

256 0348 
see 0349 '¢ 

58 Bao ! When we get here, we have received either an EXIT or CONTINUE 
360 0350 command. First free our string. 

61 35 STRSFREE1_DX (A_DESC); 

o6¢ $884 '¢ - - 

26 0355 ! If the user said to exit, do so. 

264 0356 !- 

ee $33 3 IF (.EXIT_OR_CONT EQL 2) THEN SEXIT (CODE = BAS$_STO) 
267 0359 3 prt to : in eta 
268 0360 § END; 
269 0361 
270 Beg @ %¢ 
271 0363 2 ! Otherwise, return to our caller. 

272 0364 2 !- 
273 0365 2 RETURN; 
274 0366 1 END; ! end of BAS$STOP 


-TITLE BASS$STOP 
-IDENT \1-006\ 


~-PSECT _BASSDATA,NOEXE, PIC,2 


00000000 00000 RUN_CMD:.LONG 0 : 
-PSECT _BASSCODE,NOWRT, SHR, PIC,2 
00 00 00 23 OQ0000 P.AAA: .ASCII \#\<0><0><0> 3 


EXTRN BASSSSIGNAL, STRSFREE1 DX 
“EXTRN LIBSMATCH COND, BASS 
“EXTRN BAS$K_STO> BAS$K_WHA 
-EXTRN BASS$_STO, SYSSEXIT 
001¢ 00000 .ENTRY BASSSTOP, Save R2,R3.R4 : 0220 
54 000000006 00 H 0000 MOV BASSSSIGNAL, R4& : 
5E 14 ¢ 9009 SUBL2 #20, SP ; 
04 AE 7C 0000C CLRO. = A_DESC : 0252 
6D 0097 CF DE O000F MOVAL 9S, (FP) : 


4 


BASSSTOP 
-006 

of AE 01060001 8F 

1 AE DD AF 
ee 

08 AE 

7E 00G 8F 

6 01 

6C 00000000' H 

eH 

000000006 00 08 
Oe a 
000000006 00 01 
6E 
26 

53 08 at 

43 BF 6 

63 BF 6 

05 

52 01 

1A 

45 BF 63 

06 

65 8F 63 

05 

52 02 

09 

7E 00G 8F 

64 2) 

2 

BO 

04 AE 

000000006 00 01 
02 3 

000000006 8F 

000000006 00 01 
50 08 AC 
50 04 Ad 
FO AO 

01 

5E 

7E 04 =A 

0000v CF 0 


; Routine Size: 197 bytes, Routine Base: _BASSCODE 
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So 
So 
OMNSTS OTT OO 79 $9 10-9 10-9 — 0 0 9S 0" OF  O MOMMOOUMOVCO 
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OD 0° 
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#17694721, PROMPT_DESC 
P.AAA, PROMPT_DEST+4 
A_DESC 

#14, A_DESC+2 

#2. A_BESC+3 


A_DEST+4 
#BASSK_STO, -(SP) 
#1, BASSSSIGNAL 
RUN_CMD, 8$ 
PROMPT _DESC 


#3, LIBSGET_COMMAND 
f_COM_STATUS, 2$ 
STATUS 


m 
=" 


c— 
cero 
meO 
z2oz 
San) 


DESC+4, A_BUF 
BUF), #67 


_BUF), #99 
, EXIT_OR_CONT 
(A_BUF), #69 

5$ 

(A BUF), #101 

#e, EXIT_OR_CONT 
WBASSK_WHA, -(SP) 
#1, B 


ASS$$S1GNAL 
EXIT OR_CONT 


NBEHEAWA POO BOOBVP VM 
A—-FProer Ww m vc 


A_DESC 
#7, STRSFREE1_DX 
EXIT_OR CONT, #2 
#BAS$_STO 

#1, SYSSEXIT 


Save nothing 
P), RO 


4(RO); RO 
pest 


> oo 
~ 
> 


S 
4C(AP), =(SP) 
#3, FREE_STRINGS 
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1 
ise $1984 01:15:37 AX-11 Bliss-32 V4.0-742 Page 8 
12286871383 M1 idgiz0 BASRTL.SRCIBASSTOP.B325 1 in (4) 
0 $8 : GLOBAL ROUTINE BASSSSTOP_INIT : NOVALUE = ! Set up for RUN command 
9 % 1 !4+ 
8 4! : FUNCTIONAL DESCRIPTION: 
8 m 1! Set up for the RUN environment. Since this image is to run under the RUN 
7%4=«18 command, the keyboard monitor will intercept the STOP call (by trapping 
0375 1! the signal) and will return anny if and when the program is to continue. 
8 £6 : Therefore, do not ask (redundently) for Exit or Continue. 
0378 1 ! FORMAL PARAMETERS: 
0379 1! 
0380 1! NONE 
0381 1! 
Bae8 1 ! IMPLICIT INPUTS: 
0383 1! 
0384 1! NONE 
0385 1! 
0386 1 ! IMPLICIT OUTPUTS: 
0387 1! 
0388 1! RUN_CMD.wb 
0389 1! 
0390 1 ! ROUTINE VALUE: 
0391 1 ! COMPLETION CODES: 
0396 . 7 
0393 1! NONE 
0394 1! 
0395 1 ! SIDE EFFECTS: 
0396 1! : 
0397 1! Disables the normal dialog. 
0398 1! 
0399 1 !-- 
0400 1 
0401 BEGIN 
040 1 
040 ! Flag that we are in the RUN environment. This will prevent the 
0404 2 ! normal dialog on STOP. 
0405 2 !- 
0406 § RUN_CMD = 1; 
0407 RETORN; 
0408 1 D; ! end of BASSSRUN_INIT 
0000 00000 -ENTRY BASS$STOP_INIT, Save nothing ; 0368 
00000000" EF 01 pO 00002 MOVL #1, RUN_CAD > 0406 | 
04 00009 : 0408 | 
10 bytes, Routine Base: _BASSCODE + 00C9 
0409 1 


H 1 

BASSSTOP 16-Sep-1984 01:15:37 AX-11 Bliss-32 V4.0-742 Page 
1- 1228681382 94588325 EBASRTL-SRCIBASSTOP.832¢1 . 
3 0 p19 1 ROUTINE FREE_STRINGS ( ! Free local strings 
5 1 411 1 $1G, ' Signal vector 

3 ¢ tig 1 MECH, ! Mechanism vector 

: 4135 1 ENBL ! Enable vector 
ls 4 414 1 d= 
ls 5 415 1 

; 6 Be18 1 fee 

3 { Be} ; FUNCTIONAL DESCRIPTION: 

3 9 0619 7% If we are uiwinding, free the local strings. They are passed 
; 0 0420 1! in the enable vector. 
13 1 be for 

: ¢ ba § : FORMAL PARAMETERS: 

: te 0424 1! $1G.rl.a A counted vector of parameters to LIBSSIGNAL/STOP 
: 5 0425 1! MECH. rl.a A counted vector of info from CHF 

; $29 Be § 1 ENBL.ra.a A counted vector of ENABLE argument addresses. 
3 335 0428 1 | IMPLICIT INPUTS: 

3 Sa 0429 1! 

; 340 0430 1! NONE 

; (341 0431 1! 

: ri} ah C4 1 ! IMPLICIT OUTPUTS: 

s 36 0433 1! 

> 3446 0434 1! NONE 

; «345 0435 1! 

; 346 0436 1 ! ROUTINE VALUE: 

; 347 0437 1 ! COMPLETION CODES: 

; 348 0438 1! : kn 

: «349 0439 1! Always SS$_RESIGNAL, which is ignored when unwinding. 

3 330 0440 1! 

: $2! 0441 1 ! SIDE EFFECTS: 

$ 26 0442 1! 

: 0445 1! Frees all of the strings passed as enable arguments. 

3; 354 0444 1! 

3 39 0445 1 !-- 

, 320 0446 1 

; $2/ 0447 2 BEGIN 

3; 358 0448 § 

; 359 0449 MAP 

: 360 0450 SIG : REF VECTOR, 

3 636) 0451 MECH : REF VECTOR, 

: 308 3636 ENBL : REF VECTOR; 

s % 45 

: 364 454 fe 

s 365 Bee Only free the strings if this is the UNWIND condition. 

: 045 

; i kt IF ( NOT (LIBSMATCH_COND (SIG C1], ZREF (SSS_UNWIND)))) THEN RETURN (SS$_RESIGNAL); 
: 370 Ree? '¢ 

3 4. Bee : Go through the enable arguments, freeing them. 

: 37 46 

3; 4374 464 INCR ARG_NO FROM 1 TO .ENBL (0) DO 

3; 575 465 BEGIN 

; 376 0466 STRSFREE1_DX (.ENBL C.ARG_NOJ); 


; Routine Size: 


-BASSDATA 
~BASSCODE 


File 


7E 04 AC 
000000006 4 


000000006 
FO 


50 bytes, 


0471 1 END 
0078 0 ELUDOM 


Routine Base: 


468 
sts ; RETURN (SS$_RESIGNAL); 
0 END; 


0920 


OWo f£OouUmoodwe 


i 
14. Sep-1984 01:15:37 AX-11 Bliss-32 V 
1eaeee= The 8hisgizh | FAXSAT Ose saRes¥6 


! end of FREE_STRINGS 


0004 00000 FREE STRINGS: 


WO Save R2 
E 3¢ 09002 HOVZUL ne336, =(SP) 
E DD 0000 PUSH 
4 C1 00009 ADDL P) 
2 FB 00005 CALLS ae. tisbmarcn, COND 
E9 0001 BLBC 
2 D4 00018 CLRL ae _NO 
B 11 OOO1A BRB $* 
2 DD 0001C 1$ PUSHL  @ENBLCARG_NOJ 
1 Fe 00020 CALLS #1, STRSFREE1_DXx 
C £3 00027 2$ AOBLEQ @ENBL, ARG_NO; 1 
F 3C 900¢¢ 3$ MOV ZWL ° 
04 00031 ET 


_BASSCODE + 00D3 


end of module BAS$STOP 


PSECT SUMMARY 
Bytes Attributes 
4 EC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, Sg batt | 
261 NOVEC *NOWRT. RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


~-$255$DUA28 : CSYSLIBISTARLET.L32;1 


9776 


Total 


Symbols -------- Pages Processing 
Loaded Percent Mapped Time 
11 0 581 00:01.1 


0-742 
-B32;1 


1 

BASSSTOP 1b-se -1984 01:15:37 AX-11 Bliss-32 V4.0-742 Page 11 
1-006 12-88-1382 9F588:2G BASRTL.SR RCIBASSTOP.B32s1 . (5) | 
13 COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INJTIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:BASSTOP/OBJ=0BJ$:BASSTOP MSRC$:BASSTOP/UPDATE=(ENH$:BASSTOP) 
F Size: 257 code + 8 data bytes 
3 Run Time: 00:07. 
|: Elapsed Time: re 


Lines/CPU Min: 4 
: Lexenes /CPU-Rin: 13277 
$ Y Used: 74 pages é 
3 ot ation Complete 


003 AH-BT13A-SE 


VAX/VMS V4.0 | | D PROPRIETARY | 


0032 ° H-BT13A-SE | T CORPORATION 
: VAX/ VMS V4.0 = PROPRIETARY 


